COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		title	lpttst
C00004 ENDMK
C⊗;
	title	lpttst

a←1
b←2
c←3

lpt←124
done←100


begin:	reset
	eiotm
	cono	lpt,102000		;press start. clear interface.
	move	a,msgptr
	movem	a,blkptr
	move	a,[400017,,zzzzzz]
	spcwgo	a,
	movei	a,1
	sleep	a,
	jrst	.-1

zzzzzz:	CONO	LPT,102000
	movei	a,5
zz1:	movei	b,1000
	datao	lpt,[ascii/ABcdx/]
	sojge	b,.
	sojge	a,zz1
	datao	lpt,[byte(7)"A","B","c",15,12]
	dismis




	skipl	a,blkptr
	jrst	zwait
	blko	lpt,blkptr
	jrst	bnew			;buffer ran out.
	dismis

bnew:	move	a,[BYTE(7)0,15,12]
	movem	a,blkptr
	dismis

zwait:	came	a,[byte(7)0,15,12]
	jrst	zw1
	datao	lpt,a
	movei	a,5
	movem	a,blkptr
	dismis

zw1:	sosl	blkptr
	dismis
	move	a,msgptr
	movem	a,blkptr
	dismis

msg:	asciz	/Now is the time for all good men to come to the aid of their LPT/
msglen←←.-msg
msgptr:	iowd	msglen,msg
blkptr:	0

	end	begin